home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PsL Monthly 1993 December
/
PSL Monthly Shareware CD-ROM (December 1993).iso
/
prgmming
/
dos
/
basic
/
qbware.exe
/
INCHAR.BAS
(
.txt
)
< prev
next >
Wrap
QuickBASIC Tokenized Source
|
1990-11-30
|
3KB
|
103 lines
NMALLOC
BiosMisc
BiosMisc.Msg
A0600,
A0600.BarMenu1
Answer
WinHandle
Frame
Grown
Shade
BsEqpmt
BsPInit
BsPStat
BsPrint
BsPrtSc5
A0601G
A0601.BarMenu1
A10203
A1020.PopWindow
RomDate
ExtRAM9
ExpRAMh
PrintersZ
RS232
Floppies
GamePort
Disks
BsEqpmt.Txt
A0551
A0551.LoadText
Text]
A0550
A0550.PopFText.Cstm~
MenuText=
Location
TColors(
TLength
TblDatak
TblSlct
SText
StackSize
WinStack
WinFrame
A1000
A1000.Window.Hskp
Putline
MaxWin
ExitKeys/
TabLenH
InitWin
WinPoint
A1010
A1010.Prep.Window
CngWinr
PushWin
Putwind
PopWin
PopFTexts
Countg
InpWin
Input
Input.Char
A1010.PopWindow
BsKGet
BsKGet.Msg
A0500
A0500.PutText
A0510
A0510.LoadTextH
A0500.PutTextCstm
PopText
Win.Handle
Message
Message.Txt
InitialValue
ExitList
ExtendName
InChar
InputText
LastChar
InText.Bas
Copyright (c) 1988 Marcel Madonna*
InText.BAS shows the use of a simple input windoww
with QBWARE.
Dim arrays for QB Syntax check only - we REDIM them later
Set up housekeeping for window drivers
Assume you will see no flicker
Change this value to 0 if the screen
flickers
Window stack - we keep screen images
and other info heres
Define maximum number of windows as 20
we keep specific window data herem
Set up window parameters
Sample Text Entry Window
Set up entry parameters
UUUUUUUUUUUULLLXXXXXXXXXX888888889999999999"
The next two statements just remove the window from the screen and wait for
more input - they have been commented out.
GOSUB A1020.PopWindow(
CALL InpWin(WinStack%(), Input.Char$, 0)
You entered